Partridge_Clutch Class Reference

The partridge clutch class. More...

#include <Partridge_All.h>

Inheritance diagram for Partridge_Clutch:

Public Member Functions
virtual void	Dying ()
	Generic dying handler. More...
void	OnStartIncubating ()
	Flag under incubation. More...
virtual void	BeginStep (void)
	Clutch BeginStep. More...
virtual void	Step (void)
	ClutchStep. More...
virtual void	EndStep (void)
	Clutch EndStep. More...
virtual bool	DailyMortality ()
	Background mortality test. More...
virtual bool	OnFarmEvent (FarmToDo event)
	Handle farm event. More...
void	AgDying ()
	Killed by management. More...
void	OnEaten ()
	Message handler. More...
void	OnGivenUp ()
	Message handler. More...
void	OnMumDead ()
	Message handler. More...
void	SetClutchSize (int cs)
	Set no. eggs. More...
int	GetClutchSize (void)
	Supply no eggs. More...
Partridge_Female *	GetMother (void)
	Supply mother pointer. More...
	Partridge_Clutch (int a_x, int a_y, Partridge_Female *a_mother, Partridge_Covey *a_flock, Landscape *a_map, int a_num_eggs, int a_family_counter, Partridge_Population_Manager *a_manager)
	Constructor. More...
virtual	~Partridge_Clutch (void)
	Destructor. More...
Public Member Functions inherited from Partridge_Base
Partridge_Object	GetObjectType ()
	Supply object type. More...
bool	GetUncleStatus ()
	Supply uncle status. More...
void	SetUncleStatus (bool a_Status)
	Set uncle status. More...
bool	PossibleMate (Partridge_Base *a_partridge)
	Can we mate? More...
virtual bool	ArePaired ()
	Overridden base function. More...
Partridge_Covey *	GetCovey (void)
	Supply covey pointer. More...
Partridge_State	GetState (void)
	Supply state. More...
void	SetState (Partridge_State a_pars)
	Set state. More...
int	GetFamily (void)
	Supply family ID. More...
int	GetAge (void)
	Supply age. More...
void	SetAge (int a_age)
	Set age. More...
long	GetID (void)
	Supply ID. More...
void	SetFamily (unsigned int family)
	Set family ID. More...
void	SetCovey (Partridge_Covey *a_covey)
	Set covey pointer. More...
void	MakeCovey ()
	Create our own covey. More...
void	SwitchCovey (Partridge_Covey *a_covey)
	Swap coveys. More...
	Partridge_Base (int a_born_x, int a_born_y, int a_x, int a_y, int a_family_counter, Partridge_Covey *a_covey, Landscape *a_map, Partridge_Population_Manager *a_manager)
	Constructor for Partridge_Base. More...
virtual	~Partridge_Base (void)
	Destructor. More...
virtual void	CopyMyself (int a_Ptype)
	Duplicate this object. More...
Public Member Functions inherited from TAnimal
unsigned	SupplyFarmOwnerRef ()
AnimalPosition	SupplyPosition ()
APoint	SupplyPoint ()
int	SupplyPolygonRef ()
int	Supply_m_Location_x ()
int	Supply_m_Location_y ()
virtual void	KillThis ()
virtual void	CopyMyself ()
void	SetX (int a_x)
void	SetY (int a_y)
	TAnimal (int x, int y, Landscape *L)
virtual void	ReinitialiseObject (int x, int y, Landscape *L)
	Used to re-use an object - must be implemented in descendent classes. More...
virtual int	WhatState ()
void	CheckManagement (void)
void	CheckManagementXY (int x, int y)
Public Member Functions inherited from TALMaSSObject
int	GetCurrentStateNo ()
	Returns the current state number. More...
void	SetCurrentStateNo (int a_num)
	Sets the current state number. More...
bool	GetStepDone ()
	Returns the step done indicator flag. More...
void	SetStepDone (bool a_bool)
	Sets the step done indicator flag. More...
virtual void	ReinitialiseObject ()
	Used to re-use an object - must be implemented in descendent classes. More...
	TALMaSSObject ()
	The constructor for TALMaSSObject. More...
virtual	~TALMaSSObject ()
	The destructor for TALMaSSObject. More...
void	OnArrayBoundsError ()
	Used for debugging only, tests basic object properties. More...

Private Member Functions
Partridge_State	ClDeveloping (void)
	Development state. More...
void	ClDying (void)
	Dying state. More...

Private Attributes
int	m_clutch_size
	No. of eggs. More...
Partridge_Female *	m_mother
	Pointer to mother. More...
bool	m_underincubation
	Are we being incubated? More...

Additional Inherited Members
Public Attributes inherited from Partridge_Base
Partridge_Population_Manager *	m_OurPopulationManager
	Pointer to the population manager. More...
Protected Member Functions inherited from Partridge_Base
virtual void	CheckMatePointers ()
	Debug. More...
Protected Member Functions inherited from TAnimal
void	CorrectWrapRound ()
	Corrects wrap around co-ordinate problems. More...
Protected Attributes inherited from Partridge_Base
int	m_signal
	Used to pass information to outputs. More...
long	m_id
	Individual bird ID. More...
int	m_family_counter
	Family ID. More...
int	m_age
	Age in days. More...
int	m_born_x
	x-coord of birth More...
int	m_born_y
	y-coord of birth More...
bool	m_UncleStatus
	If has uncle status in the covey. More...
Partridge_Object	m_object_type
	Type of pob object this is. More...
Partridge_Covey *	m_covey
	Pointer to the covey. More...
Partridge_State	m_state
	Current behavioural state. More...
Protected Attributes inherited from TAnimal
int	m_Location_x
int	m_Location_y
Landscape *	m_OurLandscape
Protected Attributes inherited from TALMaSSObject
int	m_CurrentStateNo
	The basic state number for all objects - '-1' indicates death. More...
bool	m_StepDone
	Indicates whether the iterative step code is done for this timestep. More...

Detailed Description

The partridge clutch class.

Constructor & Destructor Documentation

Partridge_Clutch()

Partridge_Clutch::Partridge_Clutch	(	int	a_born_x,
		int	a_born_y,
		Partridge_Female *	a_mother,
		Partridge_Covey *	a_covey,
		Landscape *	a_map,
		int	a_num_eggs,
		int	a_family_counter,
		Partridge_Population_Manager *	a_manager
	)

Constructor.

The constructor. Ensures sensible values for attributes not set by the base constructor.

                                                                                                         :
     Partridge_Base( a_born_x, a_born_y, a_born_x, a_born_y, a_family_counter, a_covey, a_map, a_manager )
     {
       m_mother = a_mother;
       m_clutch_size = a_num_eggs;
       m_object_type = pob_Clutch;
       m_underincubation = false;
}

References m_clutch_size, m_mother, Partridge_Base::m_object_type, m_underincubation, and pob_Clutch.

~Partridge_Clutch()

virtual Partridge_Clutch::~Partridge_Clutch ( void  )

inlinevirtual

Destructor.

{;}

Member Function Documentation

AgDying()

void Partridge_Clutch::AgDying

(

)

Killed by management.

This controls behaviour on the death of a clutch due to management. If the clutch is hit there is a very good chance that the hen dies too, so need to tell her.

{
 
  m_OurPopulationManager->m_Ourkfactors->m_ThisYear->incNoAgDeadClutches();
  m_OurPopulationManager->m_Ourkfactors->m_ThisYear->incNoClutchesPredated(); // All becomes part of k1
  // The line below is really debug information, this identifies the caller
  m_OurPopulationManager->m_comms_data->m_clutch = this;
  m_OurPopulationManager->m_comms_data->m_female = m_mother;
  m_OurPopulationManager->m_messagecentre.PassMessage( m_OurPopulationManager->m_comms_data, pcomm_ClutchMown );
  ClDying();
}

References ClDying(), population_attributes::incNoAgDeadClutches(), population_attributes::incNoClutchesPredated(), PartridgeCommunicationData::m_clutch, Partridge_Population_Manager::m_comms_data, PartridgeCommunicationData::m_female, Partridge_Population_Manager::m_messagecentre, m_mother, Partridge_Population_Manager::m_Ourkfactors, Partridge_Base::m_OurPopulationManager, k_factors::m_ThisYear, Partridge_Communication::PassMessage(), and pcomm_ClutchMown.

Referenced by OnFarmEvent().

BeginStep()

void Partridge_Clutch::BeginStep ( void  )

virtual

Clutch BeginStep.

Does nothing more than check bacground mortalities and management mortalities.

Reimplemented from TAnimal.

{
 
  if ( !DailyMortality() ) CheckManagement();
  else
  {
    ClDying();
  }
}

References TAnimal::CheckManagement(), ClDying(), and DailyMortality().

ClDeveloping()

Partridge_State Partridge_Clutch::ClDeveloping ( void  )

private

Development state.

This method controls the development of the clutch and its hatching. Hatching occurs when the clutch has been incubated for a predefined period.
Timing: Occurs at the end of a day (e.g. midnight-1 minute). Must create Clutch_Size number of Partridge_Chick Objects. They tell their mother that they have been created when they exist in the system.

{
    if (!m_underincubation) return pars_ClDeveloping;
    if ( ++m_age < cfg_par_incubation_period.value() ) {
        return pars_ClDeveloping;
    }
    //The line below is really debug information, this identifies the caller
    m_OurPopulationManager->m_comms_data->m_clutch = this;
    //  Call the mother via the message centre
    m_OurPopulationManager->m_comms_data->m_female = m_mother;
    m_OurPopulationManager->m_comms_data->m_male = m_mother->GetMate();
    // Remove the infertile eggs
    int clutchsize = 0;
    // correct for infertile eggs:
    for ( int u = 0; u < m_clutch_size; u++ ) {
        if ( g_rand_uni() >= cfg_par_infertile_eggs.value() ) clutchsize++;
    }
    if ( clutchsize == 0 ) // all infertile
    {
        m_OurPopulationManager->m_messagecentre.PassMessage( m_OurPopulationManager->m_comms_data, pcomm_AllInfertile );
        m_StepDone = true; // Note this does more than stop the Step code executing
        m_covey->NestLeave(); // indicate that we are finished with the nest
        m_covey->RemoveMember( this );
        m_mother = NULL; // just in case they get some other weird message
        m_CurrentStateNo = -1;
        return pars_Destroy;
    }
    //  Call the mother via the message centre
    m_OurPopulationManager->m_messagecentre.PassMessage( m_OurPopulationManager->m_comms_data, pcomm_EggsHatch );
    // Do what is needed to create the new chick objects
    //  m_OurPopulationManager->AddMaturedE();
    Chick_struct * Ch;
    Ch = new Chick_struct;
    Ch->x = m_Location_x;
    Ch->y = m_Location_y;
    Ch->bx = m_Location_x;
    Ch->by = m_Location_y;
    Ch->Mum = m_mother;
    Ch->m_covey = m_covey;
    Ch->family_counter = m_family_counter;
    m_OurPopulationManager->CreateObjects( pob_Chick, Ch, clutchsize );
    delete Ch;
    m_CurrentStateNo = -1;
    m_OurPopulationManager->AddHatchSuccess( clutchsize );
    m_StepDone = true; // Note this does more than stop the Step code executing
    m_covey->NestLeave(); // indicate that we are finished with the nest
    m_covey->RemoveMember( this );
    m_mother = NULL; // just in case they get some other weird message and try
    // to do something with the mother pointer
    //m_covey->SanityCheck2(m_covey->GetOurChicks() );
    return pars_Destroy;
}

References Partridge_Population_Manager::AddHatchSuccess(), Partridge_struct::bx, Partridge_struct::by, cfg_par_incubation_period, cfg_par_infertile_eggs, Partridge_Population_Manager::CreateObjects(), Partridge_struct::family_counter, g_rand_uni, Partridge_Female::GetMate(), Partridge_Base::m_age, PartridgeCommunicationData::m_clutch, m_clutch_size, Partridge_Population_Manager::m_comms_data, Partridge_struct::m_covey, Partridge_Base::m_covey, TALMaSSObject::m_CurrentStateNo, Partridge_Base::m_family_counter, PartridgeCommunicationData::m_female, TAnimal::m_Location_x, TAnimal::m_Location_y, PartridgeCommunicationData::m_male, Partridge_Population_Manager::m_messagecentre, m_mother, Partridge_Base::m_OurPopulationManager, TALMaSSObject::m_StepDone, m_underincubation, Chick_struct::Mum, Partridge_Covey::NestLeave(), pars_ClDeveloping, pars_Destroy, Partridge_Communication::PassMessage(), pcomm_AllInfertile, pcomm_EggsHatch, pob_Chick, Partridge_Covey::RemoveMember(), CfgInt::value(), CfgFloat::value(), Partridge_struct::x, and Partridge_struct::y.

Referenced by EndStep().

ClDying()

void Partridge_Clutch::ClDying ( void  )

private

Dying state.

Removes the clutch from the system after doing any necessary house-keeping.

{
  // Before this method is called all necessary communications need to be carried
  // out
  // All the housekeeping necessary to die
  if ( m_CurrentStateNo == -1 ) return; // already killed by something else
  m_CurrentStateNo = -1;
  m_StepDone = true;
  // Do any statistics recording
  m_OurPopulationManager->m_Ourkfactors->m_ThisYear->incNoDeadClutches();
  // Now tidy up before vanishing totally
  m_mother = NULL;
  m_covey->RemoveMember( this );
  m_state = pars_Destroy;
}

References population_attributes::incNoDeadClutches(), Partridge_Base::m_covey, TALMaSSObject::m_CurrentStateNo, m_mother, Partridge_Population_Manager::m_Ourkfactors, Partridge_Base::m_OurPopulationManager, Partridge_Base::m_state, TALMaSSObject::m_StepDone, k_factors::m_ThisYear, pars_Destroy, and Partridge_Covey::RemoveMember().

Referenced by AgDying(), BeginStep(), Dying(), OnEaten(), OnGivenUp(), and OnMumDead().

DailyMortality()

bool Partridge_Clutch::DailyMortality ( void  )

virtual

Background mortality test.

No functionality any longer because this is done in the female incubtation due to the need to have density-dependence calculated first.

Reimplemented from Partridge_Base.

{
  return false;
}

Referenced by BeginStep().

Dying()

virtual void Partridge_Clutch::Dying ( )

inlinevirtual

Generic dying handler.

Reimplemented from TAnimal.

                         {
        ClDying();
    }

References ClDying().

EndStep()

void Partridge_Clutch::EndStep ( void  )

virtual

Clutch EndStep.

Does the development for the clutch here.

Reimplemented from TAnimal.

{
  if ( m_CurrentStateNo == -1 )
    return;
 
  switch ( m_state )
  {
    case pars_ClDeveloping:
      m_state = ClDeveloping();
    break;
    case pars_ClHatching:
    break;
    case pars_ClDying:
    break;
    case pars_Destroy:
      // Destroy is only called if all housekeeping wrt to removal of the object
      // is done - object will be destroyed by PopulationManager
    break;
    default:
      m_OurLandscape->Warn( "Partridge_Clutch::EndStep - unknown pars type", NULL );
      exit( 1 );
  }
}

References ClDeveloping(), TALMaSSObject::m_CurrentStateNo, TAnimal::m_OurLandscape, Partridge_Base::m_state, pars_ClDeveloping, pars_ClDying, pars_ClHatching, pars_Destroy, and Landscape::Warn().

GetClutchSize()

int Partridge_Clutch::GetClutchSize ( void  )

inline

Supply no eggs.

                              {
        return m_clutch_size;
    }

References m_clutch_size.

GetMother()

Partridge_Female* Partridge_Clutch::GetMother ( void  )

inline

Supply mother pointer.

                                         {
        return m_mother;
    }

References m_mother.

OnEaten()

void Partridge_Clutch::OnEaten

(

void

)

Message handler.

Response to a pcomm_ClutchEaten

{
  if ( m_mother ) // if this is NULL the clutch is alread dying
  {
    ClDying();
  }
}

References ClDying(), and m_mother.

Referenced by Partridge_Communication::PassMessage().

OnFarmEvent()

bool Partridge_Clutch::OnFarmEvent ( FarmToDo  event )

virtual

Handle farm event.

Chooses the response to external management events. Responses can either be set via config variables or directly here.

Reimplemented from TAnimal.

{
  switch ( event )
  {
    case sleep_all_day:
    break;
    case autumn_plough:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    case autumn_harrow:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    case autumn_roll:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    case autumn_sow:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    case winter_plough:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    case deep_ploughing:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    case spring_plough:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    case spring_harrow:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    case spring_roll:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    case spring_sow:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    case fp_npks:
    break;
    case fp_npk:
    break;
    case fp_pk:
    break;
    case fp_liquidNH3:
      if ( g_rand_uni() < 80 ) AgDying();
    break;
    case fp_slurry:
      if ( g_rand_uni() < 50 ) AgDying();
    break;
    case fp_manganesesulphate:
    break;
    case fp_manure:
      if ( g_rand_uni() < 0.20 ) AgDying();
    break;
    case fp_greenmanure:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    case fp_sludge:
    break;
    case fa_npk:
    break;
    case fa_pk:
    break;
    case fa_slurry:
      if ( g_rand_uni() < 0.50 ) AgDying();
    break;
    case fa_ammoniumsulphate:
    break;
    case fa_manure:
      if ( g_rand_uni() < 0.20 ) AgDying();
    break;
    case fa_greenmanure:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    case fa_sludge:
    break;
    case herbicide_treat:
    break;
    case growth_regulator:
    break;
    case fungicide_treat:
    break;
    case syninsecticide_treat:
    case insecticide_treat:
    case product_treat:
    case glyphosate:
    break;
    case molluscicide:
    break;
    case row_cultivation:
      if ( g_rand_uni() < 0.50 ) AgDying();
    break;
    case strigling:
    break;
    case hilling_up:
      if ( g_rand_uni() < 0.50 ) AgDying();
    break;
    case water:
      if ( g_rand_uni() < 0.01 ) AgDying();
    break;
    case swathing:
    break;
    case harvest:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    case cattle_out:
    break;
    case cattle_out_low:
    break;
    case cut_to_hay:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    case cut_to_silage:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    case straw_chopping:
    break;
    case hay_turning:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    case hay_bailing:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
 
    case stubble_harrowing:
    break;
    case autumn_or_spring_plough:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    case burn_straw_stubble:
    break;
    case mow:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    case cut_weeds:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    case pigs_out:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    case strigling_sow:
      if ( g_rand_uni() < cfg_par_cl_cut.value() ) AgDying();
    break;
    default:
      m_OurLandscape->Warn( "Skylark_Clutch::OnFarmEvent(): Unknown event type:", m_OurLandscape->EventtypeToString( event ) );
      exit( 1 );
  }
  if ( m_state == pars_Destroy ) return true;
  else
    return false;
}

References AgDying(), autumn_harrow, autumn_or_spring_plough, autumn_plough, autumn_roll, autumn_sow, burn_straw_stubble, cattle_out, cattle_out_low, cfg_par_cl_cut, cut_to_hay, cut_to_silage, cut_weeds, deep_ploughing, Landscape::EventtypeToString(), fa_ammoniumsulphate, fa_greenmanure, fa_manure, fa_npk, fa_pk, fa_sludge, fa_slurry, fp_greenmanure, fp_liquidNH3, fp_manganesesulphate, fp_manure, fp_npk, fp_npks, fp_pk, fp_sludge, fp_slurry, fungicide_treat, g_rand_uni, glyphosate, growth_regulator, harvest, hay_bailing, hay_turning, herbicide_treat, hilling_up, insecticide_treat, TAnimal::m_OurLandscape, Partridge_Base::m_state, molluscicide, mow, pars_Destroy, pigs_out, product_treat, row_cultivation, sleep_all_day, spring_harrow, spring_plough, spring_roll, spring_sow, straw_chopping, strigling, strigling_sow, stubble_harrowing, swathing, syninsecticide_treat, CfgFloat::value(), Landscape::Warn(), water, and winter_plough.

OnGivenUp()

void Partridge_Clutch::OnGivenUp

(

void

)

Message handler.

Called as a direct call from Partridge_Female::OnMateDying

{
  if ( m_mother ) // if this is NULL the clutch is alread dying
  {
    m_mother = NULL;
    ClDying();
  }
}

References ClDying(), and m_mother.

Referenced by Partridge_Female::OnMateDying().

OnMumDead()

void Partridge_Clutch::OnMumDead

(

void

)

Message handler.

Response to a pcomm_MumDeadC message.

{
  if ( m_mother ) // if this is NULL the clutch is already dying
  {
    m_mother = NULL;
  }
  ClDying();
}

References ClDying(), and m_mother.

Referenced by Partridge_Communication::PassMessage().

OnStartIncubating()

void Partridge_Clutch::OnStartIncubating ( )

inline

Flag under incubation.

{ m_underincubation = true; }

References m_underincubation.

Referenced by Partridge_Female::FLaying().

SetClutchSize()

void Partridge_Clutch::SetClutchSize ( int  cs )

inline

Set no. eggs.

                               {
      m_clutch_size=cs;
    }

References m_clutch_size.

Referenced by Partridge_Female::FLaying().

Step()

void Partridge_Clutch::Step ( void  )

virtual

ClutchStep.

Does little here except initiating behaviour and ensuring m_StepDone is true on death.

Reimplemented from TAnimal.

{
  if ( m_CurrentStateNo == -1 || m_StepDone )
    return;
 
#ifdef __PAR_DEBUG
  CheckMatePointers();
#endif
 
  switch ( m_state )
  {
    case pars_Initiation:
      m_state = pars_ClDeveloping;
    case pars_ClDeveloping:
    case pars_ClHatching:
    case pars_Destroy:
    case pars_ClDying:
      m_StepDone = true;
    break;
    default:
      m_OurLandscape->Warn( "Partridge_Clutch::Step - unknown pars type", NULL );
      exit( 1 );
  }
}

References Partridge_Base::CheckMatePointers(), TALMaSSObject::m_CurrentStateNo, TAnimal::m_OurLandscape, Partridge_Base::m_state, TALMaSSObject::m_StepDone, pars_ClDeveloping, pars_ClDying, pars_ClHatching, pars_Destroy, pars_Initiation, and Landscape::Warn().

Member Data Documentation

m_clutch_size

int Partridge_Clutch::m_clutch_size

private

No. of eggs.

Referenced by ClDeveloping(), GetClutchSize(), Partridge_Clutch(), and SetClutchSize().

m_mother

Partridge_Female* Partridge_Clutch::m_mother

private

Pointer to mother.

Referenced by AgDying(), ClDeveloping(), ClDying(), GetMother(), OnEaten(), OnGivenUp(), OnMumDead(), and Partridge_Clutch().

m_underincubation

bool Partridge_Clutch::m_underincubation

private

Are we being incubated?

Referenced by ClDeveloping(), OnStartIncubating(), and Partridge_Clutch().

---

The documentation for this class was generated from the following files:

• /builds/a1mass/almass_stable_oddox/Partridge/Partridge_All.h
• /builds/a1mass/almass_stable_oddox/Partridge/Partridge_All.cpp